ErrorLevel("off")
SetChoiceEntryFormat(30,20, "Arial")

If(fileExists("\Storage Card\N100\MainPage.exe"))
ChoiceDefault("Options Etendues", "Réglage des Options Etendues :", 1, 0, "Régler la Luminosité", "Clavier par Défaut", "Changer d'Interface")
case 1
	SetChoiceEntryFormat(30,20, "Arial")

	ChoiceDefault("Luminosité", "Réglage de la Luminosité de 1...9 :", 5, 0, "1", "2", "3", "4", "5", "6", "7", "8", "9")
	case 1
	Run("\DiskOnChip\Apps\BackLight\l1.lnk")	
	case 2
	Run("\DiskOnChip\Apps\BackLight\l2.lnk")
	case 3
	Run("\DiskOnChip\Apps\BackLight\l3.lnk")
	case 4
	Run("\DiskOnChip\Apps\BackLight\l4.lnk")
	case 5
	Run("\DiskOnChip\Apps\BackLight\l5.lnk")
	case 6
	Run("\DiskOnChip\Apps\BackLight\l6.lnk")
	case 7
	Run("\DiskOnChip\Apps\BackLight\l7.lnk")
	case 8
	Run("\DiskOnChip\Apps\BackLight\l8.lnk")
	case 9
	Run("\DiskOnChip\Apps\BackLight\l9.lnk")
	EndChoice
	Exit
case 2
	SetChoiceEntryFormat(30, 20, "Arial")

	ChoiceDefault("Type de Clavier", "Sélectionnez le clavier qui sera utlisé par défaut :", 1, 0, "Clavier Windows", "Clavier HappyKeyboard")
	case 1
	RegWriteString ("HKCU", "ControlPanel\Sip", "DefaultIm", "{42429667-ae04-11d0-a4f8-00aa00a749b9}")
	case 2
	RegWriteString ("HKCU", "ControlPanel\Sip", "DefaultIm", "{F9A103FF-B5E2-4eae-8C34-0ADC26116C4B}")
	EndChoice
	If( question( "Cette modification ne sera prise en compte qu'après un redémarrage, Voulez-vous redémarrer ?" ) )
	Reset
	Else
	EndIf
	Exit
case 3
	ChoiceDefault(" Interface Options", " ", 1, 0, "Interface SI", "Interface N100")
	case 1
	Delete("\Windows\background.bmp")
	Delete("\Windows\PNDbackground.bmp")
	Delete("\DiskOnChip\Scripts\powerall.mscr")
	Delete("\DiskOnChip\SI\SysInfoSettings.ini")
	Copy("\DiskOnChip\Scripts\SI.lnk", "\Windows\StartUp\SI.lnk")
	Copy("\DiskOnChip\Scripts\showtaskbar.lnk", "\Windows\StartUp\showtaskbar.lnk")
	Copy("\DiskOnChip\Scripts\SI.lnk", "\Windows\Desktop\SI.lnk")
	Copy("\DiskOnChip\Scripts\pallsi\powerall.mscr", "\DiskOnChip\Scripts\powerall.mscr")
	Delete("\Windows\StartUp\N100.lnk")
	Delete("\Windows\Desktop\N100.lnk")
	Copy("\DiskOnChip\SI\SysInfoSettings\MECA\SysInfoSettings.ini", "\DiskOnChip\SI\SysInfoSettings.ini")
	Copy("\DiskOnChip\SI\Skins\MECA\background.bmp", "\Windows\background.bmp")
	Copy("\DiskOnChip\SI\Skins\MECA\PNDbackground.bmp", "\Windows\PNDbackground.bmp")
	case 2
	Delete("\Windows\background.bmp")
	Delete("\Windows\PNDbackground.bmp")
	Delete("\DiskOnChip\Scripts\powerall.mscr")
	Copy("\DiskOnChip\Scripts\N100.lnk", "\Windows\StartUp\N100.lnk")
	Copy("\DiskOnChip\Scripts\N100.lnk", "\Windows\Desktop\N100.lnk")
	Copy("\Storage card\N100\MN6.mscr", "\Windows\MN6.mscr")
	Copy("\Storage card\N100\MN6.exe", "\Windows\MN6.exe")
	Copy("\DiskOnChip\Scripts\palln100\powerall.mscr", "\DiskOnChip\Scripts\powerall.mscr")
	Delete("\Windows\StartUp\SI.lnk")
	Delete("\Windows\Desktop\SI.lnk")
	Delete("\Windows\StartUp\showtaskbar.lnk")
	Copy("\Storage Card\N100\background.bmp", "\Windows\background.bmp")
	Copy("\Storage Card\N100\PNDbackground.bmp", "\Windows\PNDbackground.bmp")
	EndChoice
	Delete("\Windows\StartUp\showtaskbar.lnk")
	Delete("\Windows\StartUp\Restore.lnk")
	Copy("\DiskOnChip\Scripts\showtaskbar.lnk", "\Windows\StartUp\showtaskbar.lnk")
	If( question( "Cette modification ne sera prise en compte qu'après un redémarrage, Voulez-vous redémarrer ?" ) )
	Reset
	Else
	EndIf
	Exit
EndChoice
Else
ChoiceDefault("Options Etendues", "Réglage des Options Etendues :", 1, 0, "Régler la Luminosité", "Clavier par Défaut")
case 1
	SetChoiceEntryFormat(30,20, "Arial")

	ChoiceDefault("Luminosité", "Réglage de la Luminosité de 1...9 :", 5, 0, "1", "2", "3", "4", "5", "6", "7", "8", "9")
	case 1
	Run("\DiskOnChip\Apps\BackLight\l1.lnk")	
	case 2
	Run("\DiskOnChip\Apps\BackLight\l2.lnk")
	case 3
	Run("\DiskOnChip\Apps\BackLight\l3.lnk")
	case 4
	Run("\DiskOnChip\Apps\BackLight\l4.lnk")
	case 5
	Run("\DiskOnChip\Apps\BackLight\l5.lnk")
	case 6
	Run("\DiskOnChip\Apps\BackLight\l6.lnk")
	case 7
	Run("\DiskOnChip\Apps\BackLight\l7.lnk")
	case 8
	Run("\DiskOnChip\Apps\BackLight\l8.lnk")
	case 9
	Run("\DiskOnChip\Apps\BackLight\l9.lnk")
	EndChoice
	Exit
case 2
	SetChoiceEntryFormat(30, 20, "Arial")

	ChoiceDefault("Type de Clavier", "Sélectionnez le clavier qui sera utlisé par défaut :", 1, 0, "Clavier Windows", "Clavier HappyKeyboard")
	case 1
	RegWriteString ("HKCU", "ControlPanel\Sip", "DefaultIm", "{42429667-ae04-11d0-a4f8-00aa00a749b9}")
	case 2
	RegWriteString ("HKCU", "ControlPanel\Sip", "DefaultIm", "{F9A103FF-B5E2-4eae-8C34-0ADC26116C4B}")
	EndChoice
	If( question( "Cette modification ne sera prise en compte qu'après un redémarrage, Voulez-vous redémarrer ?" ) )
	Reset
	Else
	EndIf
	Exit
EndChoice
EndIf
Exit